home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / programming / nnn1.35 / src / netexit.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-03-20  |  619 b   |  29 lines
  1. /*
  2.  *  $Id: NetExit.c 1.1 1995/03/20 23:40:05 daltern Exp $
  3.  */
  4.  
  5. #include "Neural.h"
  6.  
  7. void NetExit( NET *netI, VECTOR *vecS, float **Node, float ***Weight, 
  8.                                                      float ***Delta_weight )
  9.  
  10. {
  11.  
  12.   register int i, j;
  13.  
  14.   FREE2D(vecS->InVec,MAX_VECS);
  15.   FREE2D(vecS->OutVec,MAX_VECS);
  16.   FREE3D(Weight,(netI->NumLayers-1),(netI->LayerSize[i]));
  17.   FREE3D(Delta_weight,(netI->NumLayers-1),(netI->LayerSize[i]+1));
  18.  
  19.   for ( i = 1; i < netI->NumLayers; i++ ) {
  20.     free(Node[i]); 
  21.   }   /* end for i */
  22.   free(Node);
  23.  
  24.   free(netI->LayerSize);
  25.  
  26.   exit(0);
  27.  
  28. }   /* end function NetExit */
  29.